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MODULE ENTER ( nee ( ,, 
ASE RHEE? 


ie operating system, including privileged system services 


and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 30-Mar-1977 15:05 
i MODIFIED BY: 


v03-001 LMP0241 L. Mark Pilant, 26-Apr-1984 10:44 
Include the FIB in the MAKE _NAMEBLOCK routine call. 


v02-002 ACG0238 Andrew C. Goldstein, 29-Dec-1981 19:37 
Invalidate RMS caches when a directory is superseded 


v02-001 ACG0167 Andrew C. Goldstein, 7-May-1980 18:49 
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3 5 BEGIN 
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4 3 } ee et Nea ee ee 
3 it ® 
s 17 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
oe 1 !* DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. * 
3 i : :* ALL RIGHTS RESERVED. 7 
oe 1 i® THIS SOFTWARE IS PRN SHED useee A LICENSE AND MAY BE USED AND COPIED * 
0, ae 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 1 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
st 1 !* COPIES THEREOF cay NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A * 
;s 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1° } ‘* TRANSFERRED. : 
; 1 1 ie pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 4 * 
; ¢ 1 Ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Z : is CORPORATION. . 
; 5 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $ ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: i 

: : Se ennubannnanbiiinibeahensmeneansasnheenanidetitiebmaneaeteteheeten 
: 1 tee 

: 5 FACILITY: F11ACP Structure Level 1 

: 35 Vi i ABSTRACT: 

: i This routine enters the given file name in the specified directory. 

: 39 1 | ENVIRONMENT: 
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GLOBAL ROUTINE ENTER (ABD, FIB, RESULT_LENGTH, RESULT) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
This routine enters the given file name in the specified directory. 


i CALLING SEQUENCE: 
i ENTER (ARG1, ARG2, ARG3, ARG4) 


i INPUT PARAMETERS: 
: ARG1: address of 
ARG2: address of 


i IMPLICIT INPUTS: 
NONE 


r descriptor packet 


buff 
F f operation 


18 


ARG3: address of longword to receive length of result string 
ARG4: address of result string buffer 


i IMPLICIT OUTPUTS: 
: DIR_RECORD: record number of new directory entry 


i ROUTINE VALUE: 
i NONE 


i SIDE EFFECTS: 
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i 

: OUTPUT PARAMETERS: 
i 

4 

t 

' 

] 

' 

' 

i] 

4 

directory altered, result string and length written into buffer packet 
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D4 

194 ABD : REF SOLOCKVECTOR . c. yy LENGTH), 

1 § yl tet arg 

1 FIB : REF BBLOCK, Fie er 

' : RESULT : REF VECTOR C, Byte ! a string arg 

1 LOCAL 

1 NAMEBLOCK : BBLOCK CHABSC J ERSTHD 

1 T RAD=56 name block 

1 COUNT ' count of name string 

110 STRINGP, ia ddress of name string 

1 RECADDR : REF BBLOCK; ! pointer to found direttery entry 
118 EXTERNAL 

114 CLEANUP_FLAGS BITVECTOR : ¢ eanup action flags 

115 HIGHEST-VERSION : SIGNED WORD, | h ghest version encountered 

118 Loves! VERSION SIGNED WORD, ! Lowest vers on number encountered 
11 IRST_FREE, ' record number of free slot in idifectory 
18 DIR_RECORD, if recore number of entry greated 

130 SUPER_F 1D : BBLOCK; ! file ID of superseded fil 
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EXTERNAL ROUTINE 


6 
ENTER b-se -1984 01:00:47 VAX-11 Bliss-32 V4.0-742 Page 4 
v04-000 : ~$007 1382 Pe et DISKSVMSMASTER:CF11A.SRCJENTER.B32;1 ° (2) 
5 ons START ub, ! start subfunction metering 
PMS_END_ SOB, ! end subfunction metering 
DIR-ACCESS, ' access the director 
E_NAMEBLOCK, ' construct name bloc 
DIR_SCAN ' search the directory 
4 EXTEND_DiR, ! extend the directory 
4 DIRGET, ! read a directory record 
4 DIRPUT, ! write a directory record 
4 UPDATE_DIRSEQ, ' update volume directory sequence 
MAKE STRING, ' convert directory entry to string 
RETURN_DIR; ! return data to buffer packet 


: Start metering for this subfunction. 
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PMS_START_SUB (PMS_ENTER); 
The file 1D to be entered must be non-zero 


If .FIBCFIBSW_FID NUM] EQL 0 

THEN ERR_EXIT™ (SS$_BADPARAM) ; 

! Find the name string in the buffer packet. Construct the RAD-50 name block 
! from it and the other data in the FIB. Mask out the wild card bits, since 
: they are ignored. 
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COUNT = .ABDCABDSC_NAME, ABDSW_ COUNT); 
STRINGP = .ABDCABDSC_NAME, ABDSW_TEXT) + ABDCABDSC_NAME, ABDSW_TEXT] + 1; 


MAKE NAMEBLOCK (.FIB, .COUNT, .STRINGP, NAMEBLOCK); 
IF_.RAMEBLOCKCNMBSV ti 


gy THEN ERR_EXIT (SS$_BADFILENAME); 
71 CHSMOVE (FIBSS_FID F1BCFIBsy FID], NAMEBLOCKCNMBSW FIDJ); 
1 NAMEBLOCK(NMBS@_FLAGS) = =F JOCEI6SU_NACTL AND F IBSA_NEWVER; 


FELL 
SUS 


NAMEBLOCKCNMBSW_CONTEXT) = 
75 : Access the directory. 


a DIR_ACCESS (.FIB, 1); 


! Now search the directory. If the search succeeds, we have a duplicate 
1 $ qnery If superseding is enabled, save away the old file ID for 
§ i deletion later on. If the file being superseded is of the form 

' xxx.DIR;1, invalidate the RMS caches by updating the directory 
: sequence count. 


RECADDR = DIR_SCAN (NAMEBLOCK, 1); 
1 i RECADDR NEQ 0 ! if success, a duplicate exists 


BEGIN 
9 IF NOT .FIBCFIBSV_SUPERSEDE) ! see if supersede mode 


ee LO ee ee eee SS SY 


PN Ry ee OT AE vy Stet tet RA AE at Sy SE I A nas ny ee tert ey oN 


Ba Se Se Se Se Se Se Se Se Se Ge Be Ge Ge Se Ge Fe Ge Ge Ge Fe Ge Se Ge Fe Se Fe Fe Se Se oe Se FH Ge Se Se Se Se Se Ge Ge Ge Se Fe Ge Se Se Se Se Se Se Ge Se Se Se Se ee 


m 
z 
_ 
nm 
= 


S 


RRGNLSSSLSRRSES 


- ahaa naprabtenfapiecpiearten cnt ON aE ae REE PR CER AROS eGR ORR 


-—- OOO —-— 


o_o a 8 4 2 bs tt 


REANSLSSSVEARNW LS LONI ARGH SOSIVSA RUA OOO ARO OOo MAROC OS 


Od ad ad dd 
MEN =O OONOUES WO OOVNOUS WN" 0M@ 


Peers h sh Ab pb db abd Ab dh Ab Ab Ah Ab db Ab ah ah ah abedb ah ahah eal ab ah ah ab al 


PELL 
ONOUE WHO 


SOSOOOOOOOOOOOSOOOOOOOOOOSOOOOOOOOOoOoOOoOO 


~$ep-1984 VAX=11 Bliss-32_V4.0-74 
1b-se ets aS a St tht oe oy we 
THEN ERR_EXIT (SS$_DUPFILENAME) ; 


CHSMOVE (FIBSS_FID neaaeeels NMB SW FID], SUPER_FID); 
CLEANUP_FLAGSCCLF_$uP 1; 
CLEANUP~FLAGSLCLF -REENTER 


IF o Re cAponteaey. le # EQL TRADSO. 11 ‘DIR’ 
AND RLNMBSWVERSION] EQL 
en KERNEL_CALL (OPDATE *DIRSEG); 


! Siven that the search ot los. > py a the new version number. Then position 
! to the free slot found in the directory scan and insert the new entry. 
: If no empty record has been found, the directory must be extended. 


ELSE 


IF eee Orerweey VERSION) EQL 0 
OR (.NAMEBLOCK NMBSV_NEWVER) AND .NAMEBLOCKCNMBS$W_VERSION] LEQ .HIGHEST_VERSION) 
THEN NAMEBLOCKCNMBSW_VERSION] = HIGHEST VERSION # 1; 


IF_ .FIRST_FREE EQL 0 
THEN 


BEGIN 
RECADDR = EXTEND_DIR (); 
END 


RST _FRE 
(.FIRST FREE, 0); 


ECORD = .FI FR 
RECKDDR = DIRGET (.FIR 
END; 

END; 


! Set the higher and lower version flags according to what the directory 
' scan found. 


IGHEST ERSION GTR .NAMEBLOCKCNMBSW_VERSION] 
EN P IBSv HIGHVER) = 1; 

Lou Esty VERSION ON LSS -NAMEBLOCKCWMOSU_ VERSION] 
16CFIB$V_ lOuvER 


ook the new version number for legality. Copy the new directory entry 
the record and write it back. 


Ss 79 


»-NAMEBLOCKCNMBSW_ VERSION) GTRU 32767 
EN ERR_EXIT (SS$_BADFILEVER); 


F 
| 
HSMOVE (16 NAMEBLOCK, .RECADDR); 
IRPUT (.R RECADDR) 

LEANUP_FLAGSCCLF REMOVE) = 1; 


! Finally convert the name block into the resultant string. 
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-RESULT_LENGTH = MAKE_STRING (NAMEBLOCK, 
KERNEL_CALL (RETURN_DIR, ..RESULT WLENGTH, . 


: Stop metering of this subfunction 


PMS_END_SUB (); 


END; ! end of routine ENTER 
.TITLE ENTER 
“IDENT \V04-000\ 
.EXTRN CLEANUP_FLAGS, HIGHEST_VERSION 
-EXTRN LOWEST_VERSION, FIRST_FREE 
-EXTRN DIR_RECORD, SUPER FI 
-EXTRN PMS-START SUB, PMS_END_SUB 
-EXTRN DIRTACCESS, MAKE_NAMEBLOCK 
SEXTRN DIR™ SCAN, Ex XTEND DIR 
eEXTRN DIRGET gs DIRSEQ 
*EXTRN MAKE Sst Sinine. URéTUR DIR 
-EXTRN 
-PSECT $CODE$,NOWRT,2 
O3FC 00000 .ENTRY ENTER, Save R2 R3,R4,R5,R6,R7,RB,RP : 0378 
59 00006 CF 9E 90002 MOVAB HIGHEST avERsiO Rd ; 
58 000000006 9F H 000 NOVAB @*SYSSCAKRNL, Rb ; 
5€ 38 C2 0000E SUBL2 #40, 5 ; 
7 DD 00011 PUSHL #7 + 0451 
00006 CF 01 F 0013 CALLS #1, PMS_START_SUB ; 
50 08 AC 00 0001 MOVL IB, RO” + 0456 
04 Ao B 9oi¢ TSTW  4(R6) : 
03 12 O001F BNEQ = ‘1$ : 
14 BF 0021 CHMU #20 + 0457 
4 00023 RET ; 
59 04 aC D0 00024 18 MOVL ABD RO > 0464 
12 Ad 3C r MOVZWL 1 (RO) COUNT ; 
1 10 ad 9%€ MOV 16(RO). RI + 0465 
0 61 C MOVZWL (R1) Ro : 
50 o1 A140 9E MOV VERISER J, STRINGP ; 
4001 ef BB PUSHR #*M<RO,SP> + 0467 
2 DD ¢ PUSHL COUNT : 
08 AC OD PUSHL F1B : 
00006 cr 04 F 41 CALLS #4, MAKE_NAMEBLOCK ; 
5 11 AE OE 6 BLBC NAREBLOCR+17, $ > 0468 
0818 &8F BF A CHAU #20 + 0469 
56 08 ac 00 4F 2% MOVL £18. > 0471 
6E 04 a6 9 2 MOVCS ’ sf NAMEBLOCK ; 
10 AE 4 Ab FDFF F AB BICW eo 20{R6), NAMEBLOCK+16 : 047 
26 AE B CLAW : 047 
DD PUSHL > 047 
$ DD PUSHL ns : 
00006 CF FB CALLS #2, DIR_ACCESS F 
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(RE ADDR) insurer FID 
#84886 ia ANUP FLAGS 
TOTRECADORS Ce 78 

14(RECADDR), #1 
-(SP) 
P 


S 
UPDATE DIRSEQ 
#3, SYSSCMKRNL 


NAMEBLOCK+14 
5$ 


#1, NAMEBLOCK+17 
NAMEBLOCK+14, néHest _VERSION 


HIGHEST T VERSION, NAMEBLOCK+14 
FIRST AE 


#0, EXTEND_DIR 


R2, DIR_RECORD 
= (SP) 


R 
RSION, NAMEBLOCK+14 


ay RS 1(RO) 


we VERSION, NAMEBLOCK+14 
yen. 8 

Saat, #32767 

} 580 


#16, NAMEBLOCK, (RECADDR) 
RECADDR 


#1, DIRPUT 
#64, CLEANUP_FLAGS+2 
RESULT 

LOCK 
a, MAKE_STRING 
RO. @RESOLT_LENGTH 


RESULT 
@RESULT_LENGTH 
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ENTER ep-1 VAX-11 Bliss-32_V4,0-742 Page 
v04-000 12: 3007138 9}: 98: 4% DISKSVMSMASTER:CF11A.SRCJENTER.B32;1 . (28 
ee ae ! 
00006 CF 7; 1 PUSHAB RETURN_DIR : 
00006 CF 8 EB 00144 FALLS. #0, PMS END SUB + 055 
be 149 Ret : $228 

; Routine Size: 330 bytes, Routine Base: S$CODE$ + 0000 
3 rf 559 ; 
: 246 e9 3 END 
; 248 61 0 ELUDOM 
; PSECT SUMMARY 
5 Name Bytes Attributes 
: SCODES 330 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: cocecoe= Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped ime 
; _$255$DUA28: CSYSLIBILIS.L32;1 18619 25 0 1000 00:01.9 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ENTER/OBJ=OBJ$:ENTER MSRC$:ENTER/UPDATE=(ENHS$: ENTER) 

Size: 330 go ; + 0 data bytes 

Run Time: 00:05 

Elapsed Time: Rif? 

441° 


Lines/CPU Min: 

emt hk Ra 14846 
panery Used: 142 pages 

Compilation Complete 
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